home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / icon8_fx.zoo / diffs / iconx.dif < prev   
Encoding:
Text File  |  1991-02-18  |  21.0 KB  |  692 lines
  1. *** old\fmath.c
  2. --- fmath.c
  3. **************
  4. *** 26,27
  5.   #if LATTICE
  6.   #include <error.h>
  7. --- 26,30 -----
  8.   #if LATTICE
  9. + #ifdef __GNUC__
  10. + #include <errno.h>
  11. + #else
  12.   #include <error.h>
  13. **************
  14. *** 27,28
  15.   #include <error.h>
  16.   #else                    /* LATTICE */
  17. --- 30,32 -----
  18.   #include <error.h>
  19. + #endif
  20.   #else                    /* LATTICE */
  21. *** old\fsys.c
  22. --- fsys.c
  23. **************
  24. *** 427,428
  25.         mode[1] = '+';
  26.         mode[2] = untranslated ? 'b' : 'a';
  27. --- 427,431 -----
  28.         mode[1] = '+';
  29. + #ifdef __GNUC__
  30. +       mode[2] = untranslated ? 'b' : '\0';
  31. + #else
  32.         mode[2] = untranslated ? 'b' : 'a';
  33. **************
  34. *** 428,429
  35.         mode[2] = untranslated ? 'b' : 'a';
  36.         }
  37. --- 431,433 -----
  38.         mode[2] = untranslated ? 'b' : 'a';
  39. + #endif
  40.         }
  41. **************
  42. *** 429,430
  43.         }
  44.      else mode[1] = untranslated ? 'b' : 'a';
  45. --- 433,437 -----
  46.         }
  47. + #ifdef __GNUC__
  48. +    else mode[1] = untranslated ? 'b' : '\0';
  49. + #else
  50.      else mode[1] = untranslated ? 'b' : 'a';
  51. **************
  52. *** 430,431
  53.      else mode[1] = untranslated ? 'b' : 'a';
  54.   #endif                                  /* ATARI_ST */
  55. --- 437,439 -----
  56.      else mode[1] = untranslated ? 'b' : 'a';
  57. + #endif
  58.   #endif                                  /* ATARI_ST */
  59. *** old\getch.c
  60. --- getch.c
  61. **************
  62. *** 0,0
  63. --- 1,28 -----
  64. + #include <osbind.h>
  65. + 
  66. + int getch()
  67. + {
  68. +     int c;
  69. + 
  70. +     c =  Crawcin() & 0xFF;
  71. +     return(c);
  72. + }
  73. + 
  74. + int putch(c)
  75. + int c;
  76. + {
  77. +     Cconout(c);
  78. +     return(c);
  79. + }
  80. + 
  81. + int getche()
  82. + {
  83. +     int c;
  84. + 
  85. +     return (putch(c = getch()));
  86. + }
  87. + 
  88. + int kbhit()
  89. + {
  90. +     return(Cconis());
  91. + }
  92. *** old\imain.c
  93. --- imain.c
  94. **************
  95. *** 18,20
  96.   hidden    novalue    env_err    Params((char *msg,char *name,char *val));
  97. ! 
  98.   /*
  99. --- 18,22 -----
  100.   hidden    novalue    env_err    Params((char *msg,char *name,char *val));
  101. ! #if ATARI_ST
  102. ! hidden  novalue ST_error Params((char *msg));
  103. ! #endif
  104.   /*
  105. **************
  106. *** 266,268
  107.   
  108. !    if (!argc) 
  109.         error("no icode file specified");
  110. --- 268,273 -----
  111.   
  112. !    if (!argc) {
  113. ! #if ATARI_ST
  114. !       ST_error("no icode file specified");
  115. ! #else
  116.         error("no icode file specified");
  117. **************
  118. *** 268,269
  119.         error("no icode file specified");
  120.      /*
  121. --- 273,276 -----
  122.         error("no icode file specified");
  123. + #endif        /* ATARI_ST */
  124. +    }
  125.      /*
  126. **************
  127. *** 610,612
  128.   #endif                    /* TallyOpt */
  129. ! 
  130.         /*
  131. --- 617,623 -----
  132.   #endif                    /* TallyOpt */
  133. ! #if ATARI_ST
  134. !     case 't':
  135. !         k_trace = -1;
  136. !         break;
  137. ! #endif                    /* ATARI_ST */
  138.         /*
  139. **************
  140. *** 657,659
  141.   
  142. ! #if ATARI_ST || MSDOS || OS2 || VMS
  143.                  dup2(fileno(stdout),fileno(stderr));
  144. --- 668,673 -----
  145.   
  146. ! #if ATARI_ST
  147. ! #ifdef __GNUC__
  148. !            ST_error("redirection of stderr to stdout not supported");
  149. ! #else
  150.                  dup2(fileno(stdout),fileno(stderr));
  151. **************
  152. *** 659,661
  153.                  dup2(fileno(stdout),fileno(stderr));
  154. ! #endif                    /* ATARI_ST || MSDOS || OS2 ... */
  155.   
  156. --- 673,679 -----
  157.                  dup2(fileno(stdout),fileno(stderr));
  158. ! #endif
  159. ! #endif                    /* ATARI_ST */
  160. ! #if MSDOS || OS2 || VMS
  161. !                dup2(fileno(stdout),fileno(stderr));
  162. ! #endif                    /* MSDOS || OS2 ... */
  163.   
  164. **************
  165. *** 721,722
  166.      extern struct astkblk *alcactiv();
  167.   
  168. --- 739,743 -----
  169.      extern struct astkblk *alcactiv();
  170. + #if ATARI_ST
  171. +    int trace_flag = k_trace;
  172. + #endif                    /* ATARI_ST */
  173.   
  174. **************
  175. *** 831,832
  176.      datainit();
  177.   
  178. --- 852,857 -----
  179.      datainit();
  180. + #if ATARI_ST
  181. +    if (-1 == trace_flag)
  182. +       k_trace = trace_flag;
  183. + #endif                    /* ATARI_ST */
  184.   
  185. **************
  186. *** 837,838
  187.      if (!name)
  188.         error("no interpreter file supplied");
  189. --- 862,866 -----
  190.      if (!name)
  191. + #if ATARI_ST
  192. +       ST_error("no interpreter file supplied");
  193. + #else
  194.         error("no interpreter file supplied");
  195. **************
  196. *** 838,840
  197.         error("no interpreter file supplied");
  198. ! 
  199.      /*
  200. --- 866,868 -----
  201.         error("no interpreter file supplied");
  202. ! #endif
  203.      /*
  204. **************
  205. *** 900,902
  206.   
  207. ! 
  208.      k_trace = hdr.trace;
  209. --- 928,932 -----
  210.   
  211. ! #if ATARI_ST
  212. !    if (-1 != k_trace)
  213. ! #endif                    /* ATARI_ST */
  214.      k_trace = hdr.trace;
  215. **************
  216. *** 1363,1364
  217.   
  218.   /*
  219. --- 1393,1400 -----
  220.   
  221. + hidden novalue ST_error(s)
  222. + char *s;
  223. +    {
  224. +    fprintf(stderr, "usage: iconx %s\n", Usage);
  225. +    error(s);
  226. +    }
  227.   /*
  228. *** old\makefile
  229. --- makefile
  230. **************
  231. *** 0,0
  232. --- 1,158 -----
  233. + CC=gcc
  234. + CFLAGS=-O -fstrength-reduce -fcombine-regs -fomit-frame-pointer
  235. + LFLAGS=-x
  236. + OBJS= extcall.o fconv.o fmath.o fmemmon.o fmisc.o fscan.o fstr.o fstranl.o \
  237. +     fstruct.o fsys.o fxtra.o idata.o imain.o interp.o invoke.o lmisc.o \
  238. +     lrec.o lscan.o oarith.o oasgn.o ocat.o ocomp.o omisc.o oref.o oset.o \
  239. +     ovalue.o rcomp.o rconv.o rdebug.o rdefault.o rlargint.o rdoasgn.o \
  240. +     rlocal.o rmemmgt.o rmisc.o rstruct.o rsys.o rswitch.o
  241. + 
  242. + COBJS= ..\common\long.o ..\common\memory.o ..\common\time.o
  243. + 
  244. + LIBS=-lpml
  245. + 
  246. + PGM=iconx.ttp
  247. + 
  248. + all: $(PGM)
  249. + 
  250. + $(PGM): $(OBJS) $(COBJS)
  251. +     $(CC) $(CFLAGS) -o $(PGM) $(OBJS) $(COBJS) $(LIBS) $(LFLAGS)
  252. +     toglclr $(PGM) # for TOS 1.4
  253. + 
  254. + clean:
  255. +     $(RM) $(OBJS)
  256. + 
  257. + ####
  258. + extcall.o : extcall.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  259. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  260. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  261. + fconv.o : fconv.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  262. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  263. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  264. + fmath.o : fmath.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  265. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  266. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  267. + fmemmon.o : fmemmon.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  268. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  269. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  270. + fmisc.o : fmisc.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  271. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  272. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  273. + fscan.o : fscan.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  274. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  275. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  276. + fstr.o : fstr.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  277. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  278. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  279. + fstranl.o : fstranl.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  280. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  281. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  282. + fstruct.o : fstruct.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  283. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  284. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  285. + fsys.o : fsys.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  286. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  287. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  288. + fxtra.o : fxtra.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  289. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  290. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  291. + idata.o : idata.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  292. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  293. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  294. + imain.o : imain.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  295. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  296. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h ..\h\version.h \
  297. +   ..\h\header.h ..\h\opdefs.h 
  298. + interp.o : interp.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  299. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  300. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h ..\h\opdefs.h 
  301. + invoke.o : invoke.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  302. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  303. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  304. + istart.o : istart.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  305. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  306. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  307. + lmisc.o : lmisc.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  308. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  309. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h ..\h\keyword.h \
  310. +   ..\h\version.h 
  311. + lrec.o : lrec.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  312. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  313. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  314. + lscan.o : lscan.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  315. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  316. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  317. + oarith.o : oarith.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  318. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  319. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  320. + oasgn.o : oasgn.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  321. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  322. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  323. + ocat.o : ocat.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  324. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  325. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  326. + ocomp.o : ocomp.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  327. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  328. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  329. + omisc.o : omisc.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  330. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  331. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  332. + oref.o : oref.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  333. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  334. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  335. + oset.o : oset.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  336. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  337. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  338. + ovalue.o : ovalue.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  339. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  340. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  341. + rcomp.o : rcomp.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  342. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  343. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  344. + rconv.o : rconv.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  345. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  346. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  347. + rdebug.o : rdebug.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  348. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  349. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h ..\h\opdefs.h 
  350. + rdefault.o : rdefault.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  351. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  352. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  353. + rdoasgn.o : rdoasgn.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  354. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  355. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  356. + rlargint.o : rlargint.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  357. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  358. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  359. + rlocal.o : rlocal.c getch.c system.c ..\h\config.h ..\h\define.h \
  360. +    ..\h\proto.h ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  361. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h
  362. + rmemmgt.o : rmemmgt.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  363. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  364. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h rmemexp.c 
  365. + rmisc.o : rmisc.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  366. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  367. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  368. + rstruct.o : rstruct.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  369. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  370. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  371. + rswitch.o : rswitch.s
  372. + rsys.o : rsys.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  373. +   ..\common\cproto.h ..\h\rt.h ..\h\cpuconf.h \
  374. +   ..\h\memsize.h rproto.h ..\h\fdefs.h ..\h\odefs.h 
  375. + #
  376. + ..\common\long.o : ..\common\long.c ..\h\config.h \
  377. +   ..\h\define.h ..\h\proto.h ..\common\cproto.h ..\h\cpuconf.h 
  378. +     pushd ..\common
  379. +     make long.o
  380. +     popd
  381. + ..\common\memory.o : ..\common\memory.c ..\h\config.h \
  382. +   ..\h\define.h ..\h\proto.h ..\common\cproto.h 
  383. +     pushd ..\common
  384. +     make memory.o
  385. +     popd
  386. + ..\common\time.o : ..\common\time.c ..\h\config.h \
  387. +   ..\h\define.h ..\h\proto.h ..\common\cproto.h 
  388. +     pushd ..\common
  389. +     make time.o
  390. +     popd
  391. *** old\rconv.c
  392. --- rconv.c
  393. **************
  394. *** 554,555
  395.   #if AMIGA || ATARI_ST || MSDOS || UNIX || VMS
  396.      gcvt(n, Precision, s);
  397. --- 554,561 -----
  398.   #if AMIGA || ATARI_ST || MSDOS || UNIX || VMS
  399. + #ifdef __GNUC__
  400. +    (void)sprintf(s,"%.*g", Precision, n);
  401. +    if (('-' == *s) && ('0' == s[1])) {
  402. +     (void)memcpy(s + 1, s + 2, strlen(s + 1));  /* add one for '\0' */
  403. +    }
  404. + #else
  405.      gcvt(n, Precision, s);
  406. **************
  407. *** 555,556
  408.      gcvt(n, Precision, s);
  409.   #endif                                  /* AMIGA  || ATARI_ST || ... */
  410. --- 561,563 -----
  411.      gcvt(n, Precision, s);
  412. + #endif
  413.   #endif                                  /* AMIGA  || ATARI_ST || ... */
  414. *** old\rlocal.c
  415. --- rlocal.c
  416. **************
  417. *** 101,102
  418.   
  419.   long _STACK = 10240;
  420. --- 101,108 -----
  421.   
  422. + #ifdef __GNUC__
  423. + #include <osbind.h>
  424. + extern long _initial_stack = 3L; /* grab 3/4 of available memory */
  425. + #include "getch.c"
  426. + #include "system.c"
  427. + #else
  428.   long _STACK = 10240;
  429. **************
  430. *** 135,136
  431.   }
  432.   
  433. --- 141,143 -----
  434.   }
  435. + #endif
  436.   
  437. **************
  438. *** 136,138
  439.   
  440. - 
  441.   weekday(day,month,year)   /* find day of week from    */
  442. --- 143,144 -----
  443.   
  444.   weekday(day,month,year)   /* find day of week from    */
  445. **************
  446. *** 155,156
  447.   
  448.   time(ptime)   /* return value of millisecond timer */
  449. --- 161,165 -----
  450.   
  451. + #ifdef __GNUC__
  452. + atime(ptime)   /* return value of millisecond timer */
  453. + #else
  454.   time(ptime)   /* return value of millisecond timer */
  455. **************
  456. *** 156,157
  457.   time(ptime)   /* return value of millisecond timer */
  458.   int  *ptime;
  459. --- 165,167 -----
  460.   time(ptime)   /* return value of millisecond timer */
  461. + #endif
  462.   int  *ptime;
  463. **************
  464. *** 161,162
  465.   
  466.     ssp = gemdos(0x20,0);   /* enter supervisor mode */
  467. --- 171,176 -----
  468.   
  469. + 
  470. + #ifdef __GNUC__
  471. +   ssp = Super(0L);        /* enter supervisor mode */
  472. + #else
  473.     ssp = gemdos(0x20,0);   /* enter supervisor mode */
  474. **************
  475. *** 162,163
  476.     ssp = gemdos(0x20,0);   /* enter supervisor mode */
  477.     tmp = *tmr * 5;         /* get millisecond timer */
  478. --- 176,178 -----
  479.     ssp = gemdos(0x20,0);   /* enter supervisor mode */
  480. + #endif
  481.     tmp = *tmr * 5;         /* get millisecond timer */
  482. **************
  483. *** 163,164
  484.     tmp = *tmr * 5;         /* get millisecond timer */
  485.     ssp = gemdos(0x20,ssp); /* enter programmer mode */
  486. --- 178,182 -----
  487.     tmp = *tmr * 5;         /* get millisecond timer */
  488. + #ifdef __GNUC__
  489. +   ssp = Super(ssp);       /* enter programmer mode */
  490. + #else
  491.     ssp = gemdos(0x20,ssp); /* enter programmer mode */
  492. **************
  493. *** 164,166
  494.     ssp = gemdos(0x20,ssp); /* enter programmer mode */
  495. ! 
  496.     if(ptime != NULL)
  497. --- 182,184 -----
  498.     ssp = gemdos(0x20,ssp); /* enter programmer mode */
  499. ! #endif
  500.     if(ptime != NULL)
  501. **************
  502. *** 180,181
  503.   
  504.     return((lsbrk((long) (l - m)) == 0) ? -1 : 0);
  505. --- 198,202 -----
  506.   
  507. + #ifdef __GNUC__
  508. +   return(-(lsbrk((long) (l - m)) == -1L));
  509. + #else
  510.     return((lsbrk((long) (l - m)) == 0) ? -1 : 0);
  511. **************
  512. *** 181,182
  513.     return((lsbrk((long) (l - m)) == 0) ? -1 : 0);
  514.   }
  515. --- 202,204 -----
  516.     return((lsbrk((long) (l - m)) == 0) ? -1 : 0);
  517. + #endif
  518.   }
  519. *** old\rswitch.s
  520. --- rswitch.s
  521. **************
  522. *** 0,0
  523. --- 1,57 -----
  524. + |-------------------------------------------------------------------------
  525. + |   Context switch for Atari ST Icon
  526. + |-------------------------------------------------------------------------
  527. + |
  528. + |                ========   SP (a7) ->  |-------------------| Low
  529. + |                expression evaluation  |    temporaries    |
  530. + |                                       |-------------------|
  531. + |                addressed as negative  |  auto data items  |
  532. + |                      offsets from FP  |     .  .  .       |
  533. + |                ========   FP (a6) ->  |-------------------|
  534. + |                called routine pushes  | caller's saved FP |
  535. + |                                       |-------------------|
  536. + |                pushed by jsr          |  return address   |
  537. + |                                       |-------------------|
  538. + |                first argument is      |    arguments      |
  539. + |                a6 plus 8 bytes        |     .  .  .       |
  540. + |                old SP value   ----->  |-------------------| High
  541. + |
  542. + |-------------------------------------------------------------------------
  543. +         .text                | control section for instructions
  544. +         .globl    _coswitch
  545. +         .globl    _interp
  546. +         .globl    _syserr
  547. + |   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *
  548. + _coswitch:
  549. +         link    a6,#0           | push frame pointer & allocate no locals
  550. +         movel   a6@(8),a0       | a0 = address of old_cs
  551. +         movel   a6@(12),a1       | a1 = address of new_cs
  552. +         movel   a7,a0@           | store stack pointer in old_cs
  553. +         moveml  d2-d7/a2-a6,a0@(4) | store needed registers in old_cs
  554. +         movel   a1@,a7           | load stack pointer from new_cs
  555. +         tstl    a6@(16)           | if(first == 0) {
  556. +         bne     nofirst
  557. +         moveq   #0,d0           | zero return value
  558. +         movel   d0,a6           | zero frame pointer
  559. +         movel   d0,sp@-           | push two zero arguments
  560. +         movel   d0,sp@-           | for interp()
  561. +         jsr     _interp           | call interp()
  562. +         addql   #8,a7           | remove interp() args from stack
  563. +         pea     mesg           | push argument for syserr()
  564. +         jsr     _syserr           | call syserr()
  565. + |   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *
  566. + |  Following instructions not needed because syserr() never returns         *
  567. + |                                                                           *
  568. + |       addql   #4,a7           | remove syserr() args from stack    *
  569. + |       bra     done                 } else                                 *
  570. + |   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *
  571. + nofirst:
  572. +         moveml  a1@(4),d2-d7/a2-a6  | restore preserved regs from new_cs
  573. + |   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *
  574. + done:
  575. +         unlk    a6           | restore frame pointer from stack
  576. +         rts               | return to calling program
  577. + |   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *
  578. +         .data               | control section for initialized statics
  579. + mesg:   .asciz    "interp() returned in coswitch"
  580. + 
  581. *** old\system.c
  582. --- system.c
  583. **************
  584. *** 0,0
  585. --- 1,106 -----
  586. + #include <osbind.h>
  587. + #include <stdio.h>
  588. + #include <string.h>
  589. + #include <basepage.h>
  590. + #ifdef __GNUC__
  591. + #include <process.h>
  592. + #define ERROR 2
  593. + #endif
  594. + 
  595. + /**  #define DEBUG  **/
  596. + #ifdef DEBUG
  597. + #define _COOKIE(x) puts(x);putchar('\n')
  598. + #endif
  599. + 
  600. + static parse_args(cmdln, argv)
  601. +     char *cmdln;
  602. +     register char *argv[];
  603. +     {
  604. +     register char *p;
  605. +     static char delim[] = " \t\r\n";
  606. + 
  607. +     if(p = strtok(cmdln, delim))
  608. +         {
  609. +         do
  610. +             {
  611. +             *argv++ = p;
  612. +             }
  613. +             while(p = strtok(NULL, delim));
  614. +         }
  615. +     }
  616. + 
  617. + #ifdef __GNUC__
  618. + static volatile long savearea[15];
  619. + #endif
  620. + 
  621. + int system(command)
  622. +     register char *command;
  623. +     {
  624. +     register char *p;
  625. +     register int (*shell)();
  626. +     char rv[2];
  627. +     char cmdln[1024];
  628. +     char *args[64];
  629. +     char *getenv();
  630. + 
  631. +     if(!command)
  632. +         return(ERROR);
  633. + 
  634. +     /* get _shell_p value */
  635. +     p = (char *) Super(0L);
  636. +     shell = (int (*)()) *((long *) 0x4F6L);
  637. +     Super(p);
  638. + 
  639. +     /* validate _shell_p */
  640. +     if((shell) &&                /* Shell available. */
  641. +        (((long) shell) < ((long) _base)) &&    /* Reasonable shell pointer. */
  642. +        (strncmp((char *)shell, "PATH", 4)))    /* Not corrupted */
  643. +         {
  644. + #ifdef __GNUC__
  645. +         int ret;
  646. + #endif
  647. +         /* execute the command */
  648. + #ifdef DEBUG
  649. + _COOKIE("system: using _shell_p");
  650. + printf("'shell' got value 0x%08lx\n", (long)shell);
  651. + #endif
  652. + /* a bit of paranoia caused by some misbehaving programs */
  653. + #ifdef __GNUC__
  654. + asm("moveml d1-d7/a0-a7,_savearea");    
  655. +         ret = (*shell)(command);
  656. + asm("moveml _savearea,d1-d7/a0-a7");
  657. +         return (ret);
  658. + #else
  659. +         return ((*shell)(command));
  660. + #endif
  661. +         }
  662. + 
  663. +     strcpy(cmdln, command);    /* copy the command line for parsing */
  664. + 
  665. +     if((p = getenv("SHELL")) && (*p))    /* SHELL= variable? */
  666. +         {
  667. +         args[0] = p;
  668. +         parse_args(cmdln, (args + 1));
  669. + #ifdef DEBUG
  670. + _COOKIE("system: executing SHELL");
  671. + _COOKIE(p);
  672. + #endif
  673. +         }
  674. +     else    /* attempt to find first token as a program on the path */
  675. +         {
  676. +         parse_args(cmdln, args);
  677. +         p = args[0];
  678. + #ifdef DEBUG
  679. + _COOKIE("system: directly executing program");
  680. + _COOKIE(p);
  681. + #endif
  682. +         }
  683. + 
  684. + #ifdef __GNUC__
  685. +     return spawnvp(0, p, args);
  686. + #else
  687. +     forkvpe(p, args, NULL);
  688. +     wait(rv);
  689. +     return((rv[1] == 0) ? rv[0] : rv[1]);
  690. + #endif
  691. +     }
  692.